Những câu hỏi liên quan
dũng
Xem chi tiết
havdgncna
Xem chi tiết
Nguyễn Lê Phước Thịnh
10 tháng 5 2022 lúc 23:27

uses crt;

var st:string;

i,d:integer;

begin

clrscr;

readln(st);

d:=length(st);

for i:=1 to d do

  if (st[i] in ['a'..'z']) or (st[i] in ['A'..'Z']) then write(st[i]);

writeln;

for i:=1 to d do 

if (st[i] in ['0'..'9']) then write(st[i]);

readln;

end.

Bình luận (0)
Hai Yen Duong
Xem chi tiết
LINH VU HA NGOC
Xem chi tiết
Nguyễn Hoàng Nam
Xem chi tiết
Nguyễn Lê Phước Thịnh
15 tháng 3 2022 lúc 22:17

uses crt;

var st:string;

i,d:integer;

begin

clrscr;

readln(st);

d:=length(st);

for i:=1 to d do 

  if (st[i]='a') or (st[i]='A') then st[i]:='b'

writeln(st);

readln;

end.

Bình luận (0)
Văn Hữu
Xem chi tiết
Nguyễn Quốc Đạt
19 tháng 12 2023 lúc 19:54

Program HOC24;

var s: string;

i,x: byte;

begin

readln(s);

//-----------Câu a

while s[1]=#32 do delete(s,1,1);

while s[length(s)]=#32 do delete(s,length(s),1);

while pos(#32#32,s)<>0 do delete(s,pos(#32#32,1);

writeln(s);

//-------------Câu b

s[1]:=upcase(s[1]);

for i:=1 to length(s) do

if s[i]=#32 upcase(s[i+1]);

writeln(s);

//--------------Câu c

for i:=1 to length(s) do

if s[i]=#32 then x:=i;

for i:=x+1 to length(s) do

write(s[i]);

//---------------------------

readln

end.

Bình luận (0)
phuoc
Xem chi tiết
phuoc
20 tháng 8 2021 lúc 15:03

ai đó giúp mình với nhanh lên

 

Bình luận (2)
phuoc
20 tháng 8 2021 lúc 15:06

thêm test đây nha:

Dữ liệu : Vào từ từ tệp Suaxau.Inp chứa xâu cần sửa. 

Kết quả:  Ghi vào tệp Suaxau.out xâu đã sửa. 

Ví dụ: 

Suaxau.INP

   Suaxau.OUT

Ta#oi thi hoc sinua#h###nh gioi tin hoj#c

     Toi thi hoc sinh gioi tin hoc

Bình luận (0)
Melozing
23 tháng 8 2021 lúc 20:16

https://youtu.be/b5YcStwxIiM

Bình luận (2)
Nguyễn Hạnh
Xem chi tiết
Nguyễn Lê Phước Thịnh
2 tháng 4 2021 lúc 19:21

uses crt;

var s:string;

i,d,dem1,dem2,dem3,dem4:integer;

begin

clrscr;

write('Nhap xau s:'); readln(s);

d:=length(s);

dem1:=0;

dem2:=0;

dem3:=0;

dem4:=0;

for i:=1 to d do 

  begin

if st[i] in ['0'..'9'] then inc(dem1)

else if st[i] in ['a'..'z'] then inc(dem2)

else if st[i] in ['A'..'Z'] then inc(dem3)

else inc(dem4);

end;

writeln('So luong ky tu so la: ',dem1);

writeln('So luong ky tu thuong la: ',dem2);

writeln('So luong ky tu hoa la: ',dem3);

writeln('So luong ky tu dac biet la: ',dem4);

readln;

end.

Bình luận (0)
Hello1234
Xem chi tiết
Kiều Vũ Linh
27 tháng 3 2022 lúc 10:26

var s:string;

i:integer;

begin

write('Nhap xau ki tu S = ');readln(s);

for i:=1 to length(s) do

begin

if s[i] <> '0' then write('Vi tri cua so 0 cuoi cung la ',i-1);

i:=length(s);

end;

readln;

end.

Bình luận (0)
nguyenvannam
Xem chi tiết
Tô Hà Thu
1 tháng 9 2021 lúc 8:31

U

Bình luận (2)

Ký tự tiếp theo trong dãy sau đây là ký tự nào: A , C , F , J , O , U

Bình luận (0)
Nguyễn Hoài Đức CTVVIP
1 tháng 9 2021 lúc 8:31

U

Bình luận (0)